home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 023 - Big U Macroworks.dsk / RANDY.BRANDT.bas < prev    next >
BASIC Source File  |  2019-02-16  |  3KB  |  28 lines
  1. 10  ONERR  GOTO 140: REM  GRAPHICS ROUTINE BY MIKE PARKINSON
  2. 15 D$ =  CHR$(4):KP = 49152:KR = 49168:Q$ =  CHR$(34):BP$ =  CHR$(7):CL =  -868: PRINT  CHR$(21): NORMAL 
  3. 17  FOR I = 0 TO 18: READ A: POKE 24576 +I,A: NEXT : POKE 232,0: POKE 233,96: HGR : HCOLOR= 7: ROT= 0: POKE 49234,0: FOR S = 5 TO 80: SCALE= S: DRAW 1 AT 140,95: NEXT : FOR S = 80 TO 10  STEP  -1: SCALE= S: XDRAW 1 AT 140,95: NEXT 
  4. 20  DATA  1,0,4,0,24,63,54,45,54,45,36,45,36,63,36,63,54,17,0: TEXT : HOME : PRINT 
  5. 30  PRINT "BRUN SHOW": PRINT D$"SHOW,A1": TEXT 
  6. 35  HOME : PRINT : PRINT "DEMO FOR "Q$"SHOW"Q$" COMMAND": PRINT 
  7. 40  VTAB 21: PRINT : CALL  -958: PRINT "COPYRIGHT (C) 1985, RANDY BRANDT": PRINT "BEAGLE BROS MICRO SOFTWARE, INC.": VTAB 5: PRINT : PRINT "SELECT AN OPTION:": PRINT 
  8. 45  PRINT "<1,2> VIEW APPROPRIATE HI-RES SCREEN": PRINT : PRINT " <S>  TOGGLE SPLIT/FULL SCREEN": CALL  -868: PRINT 
  9. 50  PRINT "<ESC> GET BACK TO THIS TEXT SCREEN": PRINT : PRINT " <L>  LOAD A HIRES PICTURE": PRINT : PRINT " <Q>  QUIT": POKE 34,18:F = 0:HP = 1
  10. 60  VTAB 6: HTAB 1: PRINT "SELECT AN OPTION: ";: POKE 49168,0: GET X$:A =  VAL(X$): IF A <0  OR A >2  THEN  PRINT BP$;: GOTO 60
  11. 70  IF A >0  THEN  TEXT : VTAB 19: PRINT : FLASH : PRINT " SHOW,A"A",F"F" ";: FOR I = 0 TO 2100: NEXT : NORMAL : HTAB 1: CALL CL: PRINT D$"SHOW,A"A",F"F: GOTO 60
  12. 80  IF X$ =  CHR$(27)  THEN  POKE 49233,0: POKE 49236,0: GOTO 60
  13. 90  IF X$ = "Q"  OR X$ = "q"  THEN  TEXT : GOTO 180
  14. 100  IF X$ = "S"  OR X$ = "s"  THEN F = 1 -F: TEXT : VTAB 19: PRINT : FLASH : PRINT " SHOW,A"A",F"F" ";: FOR I = 0 TO 2100: NEXT : NORMAL : HTAB 1: CALL CL: PRINT D$"SHOW,A"A",F"F: GOTO 60
  15. 110  IF X$ < >"L"  AND X$ < >"l"  THEN  PRINT BP$;: GOTO 60
  16. 120  POKE 49233,0: POKE 49236,0: VTAB 17: PRINT : PRINT "ENTER THE PICTURE'S PATHNAME OR PRESS": PRINT ""Q$"RETURN"Q$" TO EXIT";
  17. 125  INPUT ": ";PIC$: ON PI$ = "" GOTO 160: VTAB 19: HTAB 19:HP = 2: FLASH : PRINT " SHOW "PI$",A"HP" ": NORMAL : PRINT D$"SHOW"PI$",A"HP:HP = 3 -HP: VTAB 18: CALL CL: PRINT : CALL CL: PRINT : CALL CL: GOTO 60
  18. 130  PRINT BP$;: GOTO 130
  19. 140 ER =  PEEK(218) + PEEK(219) *256: IF ER = 30  THEN 555
  20. 145  IF ER < >125  THEN 170
  21. 150  VTAB 17: PRINT BP$: CALL CL: PRINT : CALL CL: VTAB 18: PRINT PI$" NOT FOUND; PRESS A KEY ";: GET X$
  22. 160  VTAB 17: PRINT : CALL CL: PRINT : CALL CL: GOTO 60
  23. 170  POKE 216,0: RESUME 
  24. 180  VTAB 22: HTAB 1: CALL  -958: INVERSE : PRINT "SELECT:";: NORMAL : PRINT "    <M> MAIN MENU   <Q> QUIT NOW";: VTAB 22: HTAB 10: GET A$: IF A$ = "M"  OR A$ = "m"  THEN  PRINT  CHR$(4)"-STARTUP"
  25. 190  IF A$ =  CHR$(27)  THEN 40
  26. 200  IF A$ < >"Q"  AND A$ < >"q"  THEN 180
  27. 210  VTAB 20: PRINT : PRINT "TYPE "Q$"SHOW,A1"Q$" TO SEE HIRES PAGE1.": CALL CL: PRINT : END 
  28. 555  PRINT : PRINT : PRINT D$"-SHOW": GOTO 35